From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 6 Jun 1993 06:45:22 +0000 (+0000)
Subject: (access_keymap, store_in_keymap): Discard meaningless
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95545
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=2732bdbbbfca21280f00fb9344323c152b138885;p=emacs.git

(access_keymap, store_in_keymap): Discard meaningless
high bits of a character event.
---

diff --git a/src/keymap.c b/src/keymap.c
index 7831c293316..107c2ec3b87 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -272,6 +272,10 @@ access_keymap (map, idx, t_ok)
      be put in the canonical order.  */
   if (XTYPE (idx) == Lisp_Symbol)
     idx = reorder_modifiers (idx);
+  else if (INTEGERP (idx))
+    /* Clobber the high bits that can be present on a machine
+       with more than 24 bits of integer.  */
+    XFASTINT (idx) = XINT (idx) & ((1 << 24) - 1);
 
   {
     Lisp_Object tail;
@@ -368,7 +372,10 @@ store_in_keymap (keymap, idx, def)
      be put in the canonical order.  */
   if (XTYPE (idx) == Lisp_Symbol)
     idx = reorder_modifiers (idx);
-
+  else if (INTEGERP (idx))
+    /* Clobber the high bits that can be present on a machine
+       with more than 24 bits of integer.  */
+    XFASTINT (idx) = XINT (idx) & ((1 << 24) - 1);
 
   /* Scan the keymap for a binding of idx.  */
   {